* help-fns.el (help-fns--obsolete): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e41ddc2ad121efe9c6001e88e0eeb2da1387952..4b1ba1e660614a6327f8d04fc70ff8e859c5f0e1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-30  Chong Yidong  <cyd@gnu.org>
+
+       * help-fns.el (help-fns--obsolete): Fix last change.
+
 2012-09-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * winner.el (winner-mode-map): Obey winner-dont-bind-my-keys here.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 7dc7eebb06186dbfbe20ff3d3afca43961b510e6..ef482f8f0e9f85640e38f5844a3a569b57a562ac 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -494,8 +494,7 @@ suitable file is found, return nil."
          (use (car obsolete)))
     (when obsolete
       (insert "\nThis "
-             (if (eq (car-safe (symbol-function 'with-current-buffer))
-                     'macro)
+             (if (eq (car-safe (symbol-function function)) 'macro)
                  "macro"
                "function")
              " is obsolete")